home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / mui / mcc_monthnavigator / developer / cluster / txt / mccmonthnavigator.mod < prev   
Text File  |  1997-12-06  |  923b  |  39 lines
  1. |##########|
  2. |#MAGIC   #|FPIAEPCC
  3. |#PROJECT #|"Mui"
  4. |#PATHS   #|"StdProject"
  5. |#LINK    #|""
  6. |#GUIDE   #|""
  7. |#STACK   #|"4096"
  8. |#FLAGS   #|xx---x--xxx---x-----------------
  9. |#USERSW  #|--------------------------------
  10. |#USERMASK#|--------------------------------
  11. |#SWITCHES#|xx----xxxx-xx---
  12. |##########|
  13. IMPLEMENTATION MODULE MCCMonthNavigator;
  14.  
  15. FROM MuiO IMPORT NewObjectA, MuiTagAPtr, DoMethodRef;
  16.  
  17.  
  18. PROCEDURE MakeMonthNavigatorObjectA (tags : MonthNavigatorTagAPtr) : MonthNavigatorObject;
  19.  
  20. BEGIN
  21.   RETURN NewObjectA (cMonthNavigator, MuiTagAPtr(tags));
  22. END MakeMonthNavigatorObjectA;
  23.  
  24.  
  25. PROCEDURE MakeMonthNavigatorObject (tags : LIST OF MonthNavigatorTags) : MonthNavigatorObject;
  26.  
  27. BEGIN
  28.   RETURN NewObjectA (cMonthNavigator, MuiTagAPtr(tags[0]'PTR));
  29. END MakeMonthNavigatorObject;
  30.  
  31.  
  32. METHOD Update (o : MonthNavigatorObject);
  33.  
  34. BEGIN
  35.   DoMethodRef (o,MsgRoot:(mMonthNavigatorUpdate));
  36. END Update;
  37.  
  38. END MCCMonthNavigator.
  39.